SEARCH.LAP[206,JMC] - www.SailDart.org

perm filename SEARCH.LAP[206,JMC] blob sn#070513 filedate 1973-11-02 generic text, type T, neo UTF8

(LAP SEARCH SUBR) 
       (PUSH P 1) 
       (CALL 1 (E LOSE) S) 
       (JUMPE 1 TAG2) 
       (MOVEI 1 (QUOTE LOSE) S) 
       (JRST 0 TAG1) 
 TAG2  (MOVE 1 0 P) 
       (CALL 1 (E TER) S) 
       (JUMPE 1 TAG3) 
       (MOVE 1 0 P) 
       (JRST 0 TAG1) 
 TAG3  (MOVE 1 0 P) 
       (CALL 1 (E SUCCESSORS) S) 
       (CALL 1 (E SEARCHLIS) S) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL 

(LAP SEARCHLIS SUBR) 
       (PUSH P 1) 
       (JUMPN 1 TAG2) 
       (MOVEI 1 (QUOTE LOSE) S) 
       (JRST 0 TAG1) 
 TAG2  (HLRZ@ 1 0 P) 
       (CALL 1 (E SEARCH) S) 
       (PUSH P 1) 
       (CAIE 1 (QUOTE LOSE) S) 
       (JRST 0 TAG7) 
       (HRRZ@ 1 -1 P) 
       (CALL 1 (E SEARCHLIS) S) 
       (JRST 0 TAG6) 
 TAG7  (MOVE 1 0 P) 
 TAG6  (SUB P (C 1 0 1 0)) 
 TAG1  (SUB P (C 1 0 1 0)) 
       (POPJ P) 
       NIL